home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aai.d64 / hi-res screen (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  86 lines
  1. 10 INPUT"[147]WIDTH 1 OR 2";WI$
  2. 20 IF VAL(WI$)<1ORVAL(WI$)>2 THEN 10
  3. 30 POKE2,VAL(WI$)
  4. 40 I=52224
  5. 50 READ A:IF A=256 THEN 80
  6. 60 PRINT"[147]ENTERING DATA":POKE 646,A
  7. 70 POKEI,A:I=I+1:CH=CH+A:GOTO 50
  8. 80 IF CH<>60660 THEN PRINT"ERROR IN DATA STATEMENTS":END
  9. 90 PRINT"SYS 52224 TO START DUMP":END
  10. 52224 DATA 173,0,221,41,3,73
  11. 52230 DATA 3,160,6,10,136,208
  12. 52236 DATA 252,141,132,3,173,24
  13. 52242 DATA 208,41,8,240,9,24
  14. 52248 DATA 169,32,109,132,3,141
  15. 52254 DATA 132,3,169,0,32,189
  16. 52260 DATA 255,169,4,170,160,255
  17. 52266 DATA 32,186,255,32,192,255
  18. 52272 DATA 162,4,32,201,255,176
  19. 52278 DATA 3,76,61,204,76,32
  20. 52284 DATA 205,169,8,32,210,255
  21. 52290 DATA 169,13,32,210,255,162
  22. 52296 DATA 0,169,1,141,198,205
  23. 52302 DATA 169,0,141,199,205,169
  24. 52308 DATA 0,141,200,205,169,199
  25. 52314 DATA 141,201,205,32,225,255
  26. 52320 DATA 208,3,76,32,205,138
  27. 52326 DATA 72,152,72,32,41,205
  28. 52332 DATA 104,168,104,170,173,205
  29. 52338 DATA 205,45,203,205,240,12
  30. 52344 DATA 173,202,205,13,198,205
  31. 52350 DATA 141,202,205,76,143,204
  32. 52356 DATA 173,198,205,73,255,45
  33. 52362 DATA 202,205,141,202,205,14
  34. 52368 DATA 198,205,173,198,205,201
  35. 52374 DATA 128,240,20,24,173,199
  36. 52380 DATA 205,105,1,141,199,205
  37. 52386 DATA 173,200,205,105,0,141
  38. 52392 DATA 200,205,76,93,204,173
  39. 52398 DATA 202,205,9,128,224,45
  40. 52404 DATA 144,10,173,202,205,41
  41. 52410 DATA 31,9,128,141,202,205
  42. 52416 DATA 142,207,205,166,2,142
  43. 52422 DATA 206,205,168,32,210,255
  44. 52428 DATA 152,206,206,205,208,246
  45. 52434 DATA 174,207,205,169,1,141
  46. 52440 DATA 198,205,169,0,141,202
  47. 52446 DATA 205,56,173,199,205,233
  48. 52452 DATA 6,141,199,205,173,200
  49. 52458 DATA 205,233,0,141,200,205
  50. 52464 DATA 206,201,205,173,201,205
  51. 52470 DATA 201,255,240,3,76,93
  52. 52476 DATA 204,224,45,176,31,24
  53. 52482 DATA 173,199,205,105,7,141
  54. 52488 DATA 199,205,173,200,205,105
  55. 52494 DATA 0,141,200,205,232,169
  56. 52500 DATA 199,141,201,205,169,13
  57. 52506 DATA 32,210,255,76,93,204
  58. 52512 DATA 169,13,32,210,255,32
  59. 52518 DATA 231,255,96,173,201,205
  60. 52524 DATA 41,7,141,204,205,173
  61. 52530 DATA 201,205,74,74,74,168
  62. 52536 DATA 185,146,205,133,251,185
  63. 52542 DATA 172,205,133,252,24,165
  64. 52548 DATA 251,109,204,205,133,251
  65. 52554 DATA 165,252,105,0,133,252
  66. 52560 DATA 24,173,132,3,101,252
  67. 52566 DATA 133,252,173,199,205,41
  68. 52572 DATA 7,73,7,168,200,169
  69. 52578 DATA 0,56,42,136,208,252
  70. 52584 DATA 141,203,205,24,173,200
  71. 52590 DATA 205,101,252,133,252,173
  72. 52596 DATA 199,205,41,248,168,138
  73. 52602 DATA 72,120,162,52,134,1
  74. 52608 DATA 177,251,162,55,134,1
  75. 52614 DATA 88,168,104,170,152,45
  76. 52620 DATA 203,205,141,205,205,96
  77. 52626 DATA 0,64,128,192,0,64
  78. 52632 DATA 128,192,0,64,128,192
  79. 52638 DATA 0,64,128,192,0,64
  80. 52644 DATA 128,192,0,64,128,192
  81. 52650 DATA 0,64,0,1,2,3
  82. 52656 DATA 5,6,7,8,10,11
  83. 52662 DATA 12,13,15,16,17,18
  84. 52668 DATA 20,21,22,23,25,26
  85. 52674 DATA 27,28,30,31,256
  86.